home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / c_text.zip / CLEAR_SE.ASM < prev    next >
Assembly Source File  |  1987-06-17  |  1KB  |  39 lines
  1.  
  2. ;--------------------------------------------------------------------------;
  3. ; Clear_section(x1,y1,x2,y2,color)                                         ;
  4. ;--------------------------------------------------------------------------;
  5.  
  6.         ASSUME  CS:_TEXT
  7. _TEXT   SEGMENT BYTE    PUBLIC  'CODE'
  8.         PUBLIC  _CLEAR_SECTION
  9. _CLEAR_SECTION     PROC    NEAR
  10.         PUSH    BP
  11.         MOV     BP,SP
  12.         PUSH    DI
  13.         PUSH    SI
  14.         PUSH    DS
  15.         PUSH    ES
  16.  
  17.         MOV     CH,[BP+4]               ;X1
  18.         MOV     CL,[BP+6]               ;Y1
  19.         MOV     DH,[BP+8]               ;X2
  20.         MOV     DL,[BP+10]              ;Y2
  21.         MOV     BH,[BP+12]              ;Color
  22.  
  23.  
  24.         MOV     AH,6                    ;Service 6, Scroll up
  25.         XOR     AL,AL
  26.         INT     10h
  27.  
  28.         POP     ES
  29.         POP     DS
  30.         POP     SI
  31.         POP     DI
  32.         POP     BP
  33.         RET
  34. _CLEAR_SECTION ENDP
  35.  
  36. _TEXT   ENDS
  37.         END
  38.  
  39.